200
How can I align the column to the right
With G2antt1
	.Columns.Add("Column").Alignment = 2
	.Items.AddItem 0
	.Items.AddItem 1
End With
199
How do I change the column's caption
With G2antt1
	.Columns.Add("Column").Caption = "new caption"
End With
198
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it
With G2antt1
	.FormatAnchor(False) = "<b><u><fgcolor=880000> </fgcolor></u></b>"
	.Columns.Add "Column"
	With .Items
		.CellValueFormat(.AddItem("Just an <a1>anchor</a> element ..."),0) = 1
	End With
	With .Items
		.CellValueFormat(.AddItem("Just another <a2>anchor</a> element ..."),0) = 1
	End With
	.Items.AddItem "next item"
End With
197
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions
With G2antt1
	.FormatAnchor(True) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
	.Columns.Add "Column"
	With .Items
		.CellValueFormat(.AddItem("Just an <a1>anchor</a> element ..."),0) = 1
	End With
	With .Items
		.CellValueFormat(.AddItem("Just another <a2>anchor</a> element ..."),0) = 1
	End With
End With
196
Can I change the font for the tooltip
With G2antt1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.Columns.Add("tootip").ToolTip = "<br><font Tahoma;14>this</font> is a tooltip assigned to a column<br>"
End With
195
Can I change the font for the tooltip
With G2antt1
	.ToolTipDelay = 1
	With .ToolTipFont
		.Name = "Tahoma"
		.Size = 14
	End With
	.ToolTipWidth = 364
	.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
End With
194
Can I change the order of the buttons in the scroll bar
With G2antt1
	.ScrollOrderParts(1) = "t,l,r"
	.ScrollOrderParts(0) = "t,l,r"
	.ScrollBars = 15
End With
193
The thumb size seems to be very small. Can I make it bigger
With G2antt1
	.ColumnAutoResize = False
	.Columns.Add("C1").Width = 256
	.Columns.Add("C2").Width = 256
	.Columns.Add("C3").Width = 256
	.ScrollThumbSize(1) = 64
End With
192
How can I display my text on the scroll bar, using a different font
With G2antt1
	.ScrollPartCaption(1,256) = "This is <s><font Tahoma;12> just </font></s> text"
	.ColumnAutoResize = False
	.ScrollHeight = 20
	.Columns.Add("C1").Width = 256
	.Columns.Add("C2").Width = 256
	.Columns.Add("C3").Width = 256
End With
191
How can I display my text on the scroll bar, using a different font
With G2antt1
	.ScrollPartCaption(1,256) = "This is just a text"
	.ScrollFont(1).Size = 12
	.ColumnAutoResize = False
	.ScrollHeight = 20
	.Columns.Add("C1").Width = 256
	.Columns.Add("C2").Width = 256
	.Columns.Add("C3").Width = 256
End With
190
How can I display my text on the scroll bar
With G2antt1
	.ScrollPartCaption(1,256) = "this is just a text"
	.ColumnAutoResize = False
	.Columns.Add("C1").Width = 256
	.Columns.Add("C2").Width = 256
	.Columns.Add("C3").Width = 256
End With
189
How do I enlarge or change the size of the control's scrollbars
With G2antt1
	.ScrollHeight = 18
	.ScrollWidth = 18
	.ScrollButtonWidth = 18
	.ScrollButtonHeight = 18
	.ScrollBars = 15
End With
188
How do I assign a tooltip to a scrollbar
With G2antt1
	.ScrollToolTip(1) = "This is a tooltip being shown when you click and drag the thumb in the horizontal scroll bar"
	.ColumnAutoResize = False
	.Columns.Add("C1").Width = 256
	.Columns.Add("C2").Width = 256
	.Columns.Add("C3").Width = 256
End With
187
How do I assign an icon to the button in the scrollbar
With G2antt1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.ScrollPartVisible(1,32768) = True
	.ScrollPartCaption(1,32768) = "<img>1</img>"
	.ScrollHeight = 18
	.ScrollButtonWidth = 18
	.ScrollBars = 5
End With
186
I need to add a button in the scroll bar. Is this possible
With G2antt1
	.ScrollPartVisible(1,32768) = True
	.ScrollPartCaption(1,32768) = "1"
	.ScrollBars = 5
End With
185
Can I display an additional buttons in the scroll bar
With G2antt1
	.ScrollPartVisible(1,32768) = True
	.ScrollPartVisible(1,16384) = True
	.ScrollPartVisible(1,1) = True
	.ScrollPartVisible(1,2) = True
	.ScrollBars = 5
End With
184
Can I display the picture aligned to the right, while the text aligned to the left
With G2antt1
	.DefaultItemHeight = 48
	.Columns.Add "C1"
	With .Items
		s = .SplitCell(.AddItem("Text"),0)
		.CellPicture(,s) = G2antt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.CellHAlignment(,s) = 2
	End With
End With
183
How can I display a custom size picture to a cell or item
With G2antt1
	.DefaultItemHeight = 48
	.Columns.Add "C1"
	With .Items
		.CellPicture(.AddItem("Text"),0) = G2antt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	End With
End With
182
How can I display a multiple pictures to a cell or item
With G2antt1
	.DefaultItemHeight = 48
	.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
	.Columns.Add "C1"
	With .Items
		.CellValueFormat(.AddItem("<img>pic1</img> Text <img>pic2</img> another text ..."),0) = 1
	End With
End With
181
How do I change the column's foreground color for numbers between an interval - Range
With G2antt1
	With .ConditionalFormats.Add("dbl(%0) >= 2 and dbl(%0) <= 10")
		.Bold = True
		.ForeColor = RGB(255,0,0)
		.ApplyTo = 1 ' &H1
	End With
	.Columns.Add "N1"
	.Columns.Add "N2"
	With .Items
		.CellValue(.AddItem(1),1) = 2
	End With
	With .Items
		.CellValue(.AddItem(3),1) = 3
	End With
	With .Items
		.CellValue(.AddItem(10),1) = 11
	End With
	With .Items
		.CellValue(.AddItem(13),1) = 31
	End With
	.SearchColumnIndex = 1
End With
180
How do I change the item's foreground color for numbers between an interval - Range
With G2antt1
	.ConditionalFormats.Add("dbl(%0) >= 2 and dbl(%0) <= 10").ForeColor = RGB(255,0,0)
	.Columns.Add "Numbers"
	.Items.AddItem 1
	.Items.AddItem 2
	.Items.AddItem 10
	.Items.AddItem 20
End With
179
How do I change the item's background color for numbers less than a value
With G2antt1
	.ConditionalFormats.Add("dbl(%0) < 10").BackColor = RGB(255,0,0)
	.Columns.Add "Numbers"
	.Items.AddItem 1
	.Items.AddItem 2
	.Items.AddItem 10
	.Items.AddItem 20
End With
178
How do I underline the numbers greater than a value
With G2antt1
	.ConditionalFormats.Add("dbl(%0) >= 10").Underline = True
	.Columns.Add "Numbers"
	.Items.AddItem 1
	.Items.AddItem 2
	.Items.AddItem 10
	.Items.AddItem 20
End With
177
How do I highlight in italic the numbers greater than a value
With G2antt1
	.ConditionalFormats.Add("dbl(%0) >= 10").StrikeOut = True
	.Columns.Add "Numbers"
	.Items.AddItem 1
	.Items.AddItem 2
	.Items.AddItem 10
	.Items.AddItem 20
End With
176
How do I highlight in italic the numbers greater than a value
With G2antt1
	.ConditionalFormats.Add("dbl(%0) >= 10").Italic = True
	.Columns.Add "Numbers"
	.Items.AddItem 1
	.Items.AddItem 2
	.Items.AddItem 10
	.Items.AddItem 20
End With
175
How do I highlight in bold the numbers greater than a value
With G2antt1
	.ConditionalFormats.Add("dbl(%0) >= 10").Bold = True
	.Columns.Add "Numbers"
	.Items.AddItem 1
	.Items.AddItem 2
	.Items.AddItem 10
	.Items.AddItem 20
End With
174
Can I use your EBN files to change the visual appearance for +/- expand - collapse buttons

With G2antt1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
	.LinesAtRoot = 1
	.HasButtons = 4
	.HasButtonsCustom(0) = 16777216
	.HasButtonsCustom(1) = 33554432
	.Columns.Add "Column"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem h,,"Child"
	End With
End With
173
Can I use your EBN files to change the visual appearance for radio buttons

With G2antt1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
	.RadioImage(0) = 16777216
	.RadioImage(1) = 33554432
	.Columns.Add("Radio").Def(1) = True
	With .Items
		.AddItem "Radio 1"
		.CellState(.AddItem("Radio 2"),0) = 1
		.AddItem "Radio 3"
	End With
End With
172
Can I use your EBN files to change the visual appearance for checkbox cells

With G2antt1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
	.CheckImage(0) = 16777216
	.CheckImage(1) = 33554432
	.Columns.Add("Check").Def(0) = True
	With .Items
		.AddItem "Check 1"
		.CellState(.AddItem("Check 2"),0) = 1
	End With
End With
171
How do I change the visual aspect for thumb parts in the scroll bars, using EBN
With G2antt1
	.BeginUpdate 
	With .VisualAppearance
		.Add 1,"c:\exontrol\images\normal.ebn"
		.Add 2,"c:\exontrol\images\pushed.ebn"
		.Add 3,"c:\exontrol\images\hot.ebn"
	End With
	.Background(388) = &H1000000
	.Background(389) = &H2000000
	.Background(391) = &H3000000
	.Background(260) = &H1000000
	.Background(261) = &H2000000
	.Background(263) = &H3000000
	.ScrollBars = 3855 ' ScrollBarsEnum.exVScrollEmptySpace Or ScrollBarsEnum.exHScrollEmptySpace Or ScrollBarsEnum.exVScrollOnThumbRelease Or ScrollBarsEnum.exHScrollOnThumbRelease Or ScrollBarsEnum.exDisableBoth
	.ScrollBySingleLine = True
	.Columns.Add "Def"
	With .Items
		.AddItem 1
		.AddItem 2
		.AddItem 3
	End With
	.EndUpdate 
End With
170
How do I change the visual aspect only for the thumb in the scroll bar, using EBN
With G2antt1
	.BeginUpdate 
	With .VisualAppearance
		.Add 1,"c:\exontrol\images\normal.ebn"
		.Add 2,"c:\exontrol\images\pushed.ebn"
		.Add 3,"c:\exontrol\images\hot.ebn"
	End With
	.Background(388) = &H1000000
	.Background(389) = &H2000000
	.Background(391) = &H3000000
	.ScrollBars = 3855 ' ScrollBarsEnum.exVScrollEmptySpace Or ScrollBarsEnum.exHScrollEmptySpace Or ScrollBarsEnum.exVScrollOnThumbRelease Or ScrollBarsEnum.exHScrollOnThumbRelease Or ScrollBarsEnum.exDisableBoth
	.ScrollBySingleLine = True
	.Columns.Add "Def"
	With .Items
		.AddItem 1
		.AddItem 2
		.AddItem 3
	End With
	.EndUpdate 
End With
169
I've seen that you can change the visual appearance for the scroll bar. How can I do that

With G2antt1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
	.VisualAppearance.Add 3,"c:\exontrol\images\hot.ebn"
	.Background(324) = &H1000000
	.Background(325) = &H2000000
	.Background(327) = &H3000000
	.Background(404) = RGB(240,240,240)
	.Background(276) = RGB(240,240,240)
	.Background(511) = RGB(240,240,240)
	.Columns.Add("S").Width = 32
	.Columns.Add("Level 1").LevelKey = 1
	.Columns.Add("Level 2").LevelKey = 1
	.Columns.Add("Level 3").LevelKey = 1
	.Columns.Add("E1").Width = 32
	.Columns.Add("E2").Width = 32
	.Columns.Add("E3").Width = 32
	.Columns.Add("E4").Width = 32
	.ColumnAutoResize = False
	.ScrollBars = 15
End With
168
Is there any option to highligth the column from the cursor - point

With G2antt1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Background(32) = &H1000000
	.Columns.Add("S").Width = 32
	.Columns.Add("Level 1").LevelKey = 1
	.Columns.Add("Level 2").LevelKey = 1
	.Columns.Add("Level 3").LevelKey = 1
	.Columns.Add("E1").Width = 32
	.Columns.Add("E2").Width = 32
	.Columns.Add("E3").Width = 32
	.Columns.Add("E4").Width = 32
End With
167
How do I change the visual aspect of selected item in the drop down filter window, using your EBN technology

With G2antt1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Background(20) = &H1000000
	.Background(21) = RGB(255,20,20)
	.Columns.Add("Filter").DisplayFilterButton = True
End With
166
How do I change the visual aspect of the drop down calendar window, that shows up if I click the drop down filter button, using EBN

With G2antt1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
	.Background(8) = &H1000000
	.Background(9) = &H1000000
	.Background(10) = &H2000000
	.Background(11) = &H1000000
	.Background(12) = RGB(230,230,230)
	.Background(13) = RGB(230,230,230)
	.Background(14) = &H1000000
	With .Columns.Add("Date")
		.FilterType = 4
		.DisplayFilterButton = True
		.DisplayFilterDate = True
	End With
End With
165
How do I change the visual aspect of the close button in the filter bar, using EBN

With G2antt1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Background(1) = &H1000000
	.Columns.Add("Filter").FilterType = 1
	.ApplyFilter 
End With
164
How do I change the visual aspect of buttons in the cell, using EBN

With G2antt1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
	.Background(2) = &H1000000
	.Background(3) = &H2000000
	.SelForeColor = RGB(0,0,0)
	.ShowFocusRect = False
	.Columns.Add("Column 1").Def(2) = True
	.Items.AddItem "Button 1"
	.Items.AddItem "Button 2"
	.Columns.Add "Column 2"
End With
163
How do I change the visual aspect of the drop down filter button, using EBN

With G2antt1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Background(0) = &H1000000
	.Columns.Add("Filter").DisplayFilterButton = True
End With
162
How do I enable resizing the columns at runtime
With G2antt1
	.ColumnsAllowSizing = True
	.MarkSearchColumn = False
	.HeaderVisible = False
	.Columns.Add "Column 1"
	.Columns.Add "Column 2"
	.DrawGridLines = 2
	With .Items
		.CellValue(.AddItem("Item 1"),1) = "Sub Item 1"
	End With
	With .Items
		.CellValue(.AddItem("Item 2"),1) = "Sub Item 2"
	End With
End With
161
How can I select the second inner column when spliting the cells
With G2antt1
	.SelectColumnInner = 1
	.FullRowSelect = False
	.DrawGridLines = -1
	.Columns.Add "Column"
	With .Items
		.CellValue(,.SplitCell(.AddItem("Split Cell 1.1"),0)) = "Split Cell 2.1"
		.CellValue(,.SplitCell(.AddItem("Split Cell 1.2"),0)) = "Split Cell 2.2"
		.SelectItem(.FirstVisibleItem) = True
	End With
End With
160
How can I sort by multiple columns

With G2antt1
	.SingleSort = False
	.Columns.Add("C1").SortOrder = 1
	.Columns.Add("C2").SortOrder = 2
	.Columns.Add("C3").SortOrder = 1
End With
159
How can I add several columns to control's sort bar
With G2antt1
	.SortBarVisible = True
	.SortBarColumnWidth = 48
	.Columns.Add("C1").SortOrder = 1
	.Columns.Add("C2").SortOrder = 2
End With
158
How can I change the width of the columns being displayed in the sort bar
With G2antt1
	.SortBarVisible = True
	.SortBarColumnWidth = 48
	.Columns.Add("C1").SortOrder = 1
	.Columns.Add("C2").SortOrder = 2
End With
157
How can I change the height of the sort bar's
With G2antt1
	.SortBarVisible = True
	.SortBarHeight = 48
End With
156
How can I change the sort bar's foreground color
With G2antt1
	.SortBarVisible = True
	.ForeColorSortBar = RGB(255,0,0)
End With
155
How can I change the visual appearance of the control's sort bar, using EBN files

With G2antt1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
	.SortBarVisible = True
	.BackColorSortBar = &H1000000
	.BackColorSortBarCaption = &H2000000
	.Appearance = 0
End With
154
How can I change the sort bar's background color
With G2antt1
	.SortBarVisible = True
	.BackColorSortBar = RGB(255,0,0)
	.BackColorSortBarCaption = RGB(128,0,0)
End With
153
How can I change the default caption being displayed in the control's sort bar
With G2antt1
	.SortBarVisible = True
	.SortBarCaption = "new caption"
End With
152
How can I show the locked / fixed items on the bottom side of the control
With G2antt1
	.ShowLockedItems = True
	.Columns.Add "Column"
	With .Items
		.LockedItemCount(1) = 2
		.CellValue(.LockedItem(1,0),0) = "locked item 1"
		.CellValue(.LockedItem(1,1),0) = "locked item 2"
		.AddItem "un-locked item"
	End With
End With
151
How can I show the locked / fixed items
With G2antt1
	.ShowLockedItems = True
	.Columns.Add "Column"
	With .Items
		.LockedItemCount(0) = 2
		.CellValue(.LockedItem(0,0),0) = "locked item 1"
		.CellValue(.LockedItem(0,1),0) = "locked item 2"
		.AddItem "un-locked item"
	End With
End With
150
How can I hide the locked / fixed items
With G2antt1
	.ShowLockedItems = False
	.Columns.Add "Column"
	With .Items
		.LockedItemCount(0) = 1
		.CellValue(.LockedItem(0,0),0) = "locked item"
		.AddItem "un-locked item"
	End With
End With
149
How can I show the control's sort bar
With G2antt1
	.SortBarVisible = True
End With
148
How can I stretch a picture on the control's header, when multiple levels are displayed, so it is not tiled
With G2antt1
	.PictureLevelHeader = G2antt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
	.PictureDisplayLevelHeader = 49
	.Columns.Add("S").Width = 32
	.Columns.Add("Level 1").LevelKey = 1
	.Columns.Add("Level 2").LevelKey = 1
	.Columns.Add("Level 3").LevelKey = 1
	.Columns.Add("E1").Width = 32
	.Columns.Add("E2").Width = 32
	.Columns.Add("E3").Width = 32
	.Columns.Add("E4").Width = 32
End With
147
How can I display a picture on the control's header, when multiple levels are displayed, so it is not tiled
With G2antt1
	.PictureLevelHeader = G2antt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
	.PictureDisplayLevelHeader = 18
	.Columns.Add("S").Width = 32
	.Columns.Add("Level 1").LevelKey = 1
	.Columns.Add("Level 2").LevelKey = 1
	.Columns.Add("Level 3").LevelKey = 1
	.Columns.Add("E").Width = 32
End With
146
How can I display a picture on the control's header, when multiple levels are displayed

With G2antt1
	.PictureLevelHeader = G2antt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.Columns.Add("S").Width = 32
	.Columns.Add("Level 1").LevelKey = 1
	.Columns.Add("Level 2").LevelKey = 1
	.Columns.Add("Level 3").LevelKey = 1
End With
145
How can I change the header's background color, when multiple levels are displayed
With G2antt1
	.BackColorLevelHeader = RGB(250,0,0)
	.Columns.Add("S").Width = 32
	.Columns.Add("Level 1").LevelKey = 1
	.Columns.Add("Level 2").LevelKey = 1
	.Columns.Add("Level 3").LevelKey = 1
End With
144
Can I programmatically scroll the control
With G2antt1
	.Columns.Add "Column"
	.Items.AddItem 0
	.Items.AddItem 1
	.Items.AddItem 2
	.Items.AddItem 3
	.PutItems .GetItems(0)
	.PutItems .GetItems(0)
	.ScrollPos(True) = 1
End With
143
How do I disable expanding or collapsing an item when user presses the arrow keys
With G2antt1
	.ExpandOnKeys = False
	.LinesAtRoot = -1
	.Columns.Add "Column 1"
	With .Items
		h = .AddItem("Root")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
	End With
End With
142
How do I expand automatically the items while user types characters to searching for something ( incremental searching )
With G2antt1
	.ExpandOnSearch = True
	.LinesAtRoot = -1
	.AutoSearch = True
	.Columns.Add("Column").AutoSearch = 1
	With .Items
		.InsertItem .InsertItem(.AddItem("text"),,"some text"),,"another text"
		.InsertItem .InsertItem(.AddItem("text"),,"some text"),,"another text"
	End With
End With
141
Can I programmatically scroll the control
With G2antt1
	.Columns.Add "Column"
	.Items.AddItem 0
	.Items.AddItem 1
	.Items.AddItem 2
	.Items.AddItem 3
	.PutItems .GetItems(0)
	.PutItems .GetItems(0)
	.Scroll 1
End With
140
Do you have some function to load data from a safe array
With G2antt1
	.Columns.Add "Column"
	.Items.AddItem 0
	.PutItems .GetItems(0)
End With
139
Do you have some function to retrieve all items to a safe array
With G2antt1
	.Columns.Add "Column"
	.Items.AddItem 0
	.PutItems .GetItems(0)
	.Items.AddItem 1
	.PutItems .GetItems(0)
	.Items.AddItem 2
	.PutItems .GetItems(0)
	.Items.AddItem 3
End With
138
How can still display the selected items when the control loses the focus
With G2antt1
	.HideSelection = False
	.Columns.Add "Column"
	With .Items
		.AddItem "Item 3"
		.AddItem "Item 1"
		.SelectItem(.AddItem("Item 2")) = True
	End With
End With
137
How can I hide a column
With G2antt1
	.Columns.Add("Hidden").Visible = False
	.Columns.Add "2"
	.Columns.Add "3"
	.Columns.Add "4"
	.Columns.Add "5"
End With
136
How can I ensure that a column is visible and fits the control's client area
With G2antt1
	.ColumnAutoResize = False
	.Columns.Add("1").Width = 128
	.Columns.Add("2").Width = 128
	.Columns.Add("3").Width = 128
	.Columns.Add("4").Width = 128
	.Columns.Add("5").Width = 128
	.EnsureVisibleColumn "5"
End With
135
I've seen that the width of the tooltip is variable. Can I make it larger
With G2antt1
	.ToolTipWidth = 328
	.Columns.Add("tootip").ToolTip = "this is a tooltip that should be very very very very very very very long"
End With
134
How do I disable showing the tooltip for all control
With G2antt1
	.ToolTipDelay = 0
	.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
End With
133
How do I let the tooltip being displayed longer
With G2antt1
	.ToolTipPopDelay = 10000
	.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
End With
132
How do I show the tooltip quicker
With G2antt1
	.ToolTipDelay = 1
	.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
End With
131
How do I change the caption being displayed in the control's filter bar

With G2antt1
	.FilterBarCaption = "your filter caption"
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterType = 1
	End With
	.ApplyFilter 
End With
130
How do I disable expanding or collapsing an item when user double clicks it
With G2antt1
	.ExpandOnDblClick = False
	.LinesAtRoot = -1
	.Indent = 13
	.Columns.Add "Column 1"
	With .Items
		h = .AddItem("Root")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
	End With
End With
129
How do I search case sensitive, using your incremental search feature
With G2antt1
	.AutoSearch = True
	.ASCIILower = ""
	With .Columns
		.Add("exStartWith").AutoSearch = 0
		.Add("exContains").AutoSearch = 1
	End With
	With .Items
		.CellValue(.AddItem("text"),1) = "another text"
	End With
	With .Items
		.CellValue(.AddItem("text"),1) = "another text"
	End With
End With
128
How do I disable the control
With G2antt1
	.Enabled = False
End With
127
How do I enable the incremental search feature within a column
With G2antt1
	.AutoSearch = True
	With .Columns
		.Add("exStartWith").AutoSearch = 0
		.Add("exContains").AutoSearch = 1
	End With
	With .Items
		.CellValue(.AddItem("text"),1) = "another text"
	End With
	With .Items
		.CellValue(.AddItem("text"),1) = "another text"
	End With
End With
126
How do I call your x-script language
With G2antt1
	With .ExecuteTemplate("Columns.Add(`Column`)")
		.HeaderStrikeOut = True
		.HeaderBold = True
	End With
End With
125
How do I call your x-script language
With G2antt1
	.Template = "Columns.Add(`Column`).HTMLCaption = `<b>C</b>olumn`"
End With
124
How do I show alternate rows in different background color

With G2antt1
	.BackColorAlternate = RGB(240,240,240)
	.Columns.Add "Column"
	With .Items
		.AddItem "Item 1"
		.AddItem "Item 2"
		.AddItem "Item 3"
		.AddItem "Item 4"
		.AddItem "Item 5"
	End With
End With
123
How do I enlarge the drop down filter window
With G2antt1
	.FilterBarDropDownHeight = -320
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterBarDropDownWidth = -320
	End With
	.Items.AddItem "Item 1"
	.Items.AddItem "Item 2"
End With
122
How do I filter programmatically the control
With G2antt1
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterType = 3
		.Filter = "Item*"
	End With
	.Items.AddItem "Item 1"
	.Items.AddItem ""
	.Items.AddItem "Item 2"
	.ApplyFilter 
End With
121
How do I change the font of the control's filterbar
With G2antt1
	.FilterBarFont.Size = 20
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterType = 1
	End With
	.ApplyFilter 
End With
120
Can I apply an EBN skin to the control's filter bar so I can change its visual appearance

With G2antt1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.FilterBarBackColor = &H1000000
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterType = 1
	End With
	.ApplyFilter 
End With
119
How do I change the background color of the control's filterbar
With G2antt1
	.FilterBarBackColor = RGB(240,240,240)
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterType = 1
	End With
	.ApplyFilter 
End With
118
How do I change the foreground color of the control's filterbar

With G2antt1
	.FilterBarForeColor = RGB(255,0,0)
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterType = 1
	End With
	.ApplyFilter 
End With
117
How do I change the height of the control's filterbar
With G2antt1
	.FilterBarHeight = 32
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterType = 1
	End With
	.ApplyFilter 
End With
116
How do I change the header's foreground color
With G2antt1
	.ForeColorHeader = RGB(255,0,0)
	.Columns.Add "Column 1"
	.Columns.Add "Column 2"
	.Items.AddItem "Item 1"
End With
115
I have a picture on the control's background, the question is how do I draw selection as semi-transparent
With G2antt1
	.Picture = G2antt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.SelBackMode = 1
	.Columns.Add "Column"
	.Items.AddItem "Item 1"
	.Items.AddItem "Item 2"
End With
114
It seems that the control uses the TAB key, is there any way to avoid that
With G2antt1
	.UseTabKey = False
End With
113
I have FullRowSelect property on False, how do I force the user to select cells only in a specified column
With G2antt1
	.SelectColumnIndex = 1
	.FullRowSelect = False
	.SelectColumn = True
	.Columns.Add "Column 1"
	.Columns.Add "Column 2"
	With .Items
		.CellValue(.AddItem("Item 1"),1) = "SubItem 1"
	End With
End With
112
How do I assign a database to your control, using ADO, ADOR or ADODB objects
With G2antt1
	.ColumnAutoResize = False
	.ContinueColumnScroll = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3
	End With
	.DataSource = rs
End With
111
How do I change the visual appearance effect for the selected item, using EBN
With G2antt1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.SelBackColor = &H1000000
	.SelForeColor = RGB(0,0,0)
	.ShowFocusRect = False
	.Columns.Add "Column"
	.Items.AddItem 0
	.Items.AddItem 1
End With
110
How do I change the colors for the selected item
With G2antt1
	.SelBackColor = RGB(0,0,0)
	.Columns.Add "Column"
	.Items.AddItem 0
	.Items.AddItem 1
End With
109
How can I hide the frame/rectangle arround the focused item
With G2antt1
	.BeginUpdate 
	.SelBackColor = .BackColor
	.SelForeColor = .ForeColor
	.ShowFocusRect = False
	.Columns.Add "Column"
	.Items.AddItem 0
	.Items.AddItem 1
	.Items.AddItem ""
	.EndUpdate 
End With
108
How can I change the control's font
With G2antt1
	.Font.Name = "Tahoma"
	.Columns.Add "Column"
End With
107
I can't scroll to the end of the data. What can I do
With G2antt1
	.ScrollBySingleLine = True
	.DrawGridLines = -2
	.Columns.Add "Column"
	With .Items
		.ItemHeight(.AddItem(0)) = 13
	End With
	.PutItems .GetItems(0)
	With .Items
		.ItemHeight(.AddItem(1)) = 26
	End With
	.PutItems .GetItems(0)
	With .Items
		.ItemHeight(.AddItem(2)) = 36
	End With
	.PutItems .GetItems(0)
	With .Items
		.ItemHeight(.AddItem(3)) = 48
	End With
	.PutItems .GetItems(0)
End With
106
How do I specify the column where the tree lines / hierarchy are shown

With G2antt1
	.LinesAtRoot = 1
	.TreeColumnIndex = 1
	.Columns.Add "Column 1"
	.Columns.Add "Column 2"
	With .Items
		h = .AddItem("Root 1.1")
		.CellValue(h,1) = "Root 1.2"
		.CellValue(.InsertItem(h,,"Child 1.1"),1) = "Child 1.2"
		.CellValue(.InsertItem(h,,"Child 2.1"),1) = "Child 2.2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2.1")
		.CellValue(h,1) = "Root 2.2"
		.CellValue(.InsertItem(h,,"Child 1.1"),1) = "Child 1.2"
	End With
End With
105
How do I specify the indentation of the child items relative to their parents

With G2antt1
	.LinesAtRoot = 1
	.Indent = 11
	.Columns.Add "Column"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem h,,"Child"
	End With
End With
104
Is there any option to select an item using the right button of the mouse (rclick)
With G2antt1
	.RClickSelect = True
	.Columns.Add "Column"
	.Items.AddItem "Item 1"
	.Items.AddItem "Item 2"
End With
103
I have FullRowSelect property on False, how do I select a column
With G2antt1
	.SelectColumnIndex = 1
	.FullRowSelect = False
End With
102
How can I scroll columns one by one, not pixel by pixel
With G2antt1
	.ContinueColumnScroll = False
	.ColumnAutoResize = False
	.Columns.Add("1").Width = 128
	.Columns.Add("2").Width = 128
	.Columns.Add("3").Width = 128
	.Columns.Add("4").Width = 128
	.Columns.Add("5").Width = 128
End With
101
How can I enable multiple items selection
With G2antt1
	.SingleSel = False
	.Columns.Add "Column"
	.Items.AddItem 0
	.Items.AddItem 1
	.Items.AddItem 2
End With